RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


—_———_— SS 


| D1 
| *#F LE**1D**CONVLB 
| 
i | 
| 
CCCCCCCC }=©—000000~SsNN NN VV Ww LL BBBBBRBB 
ccccccce 000000 NN NN VV wW LL BBBBBBBB 
cc 00 00 NN NN VV WwW LL BB BB 
CC 00 00 NN VV Ww LL BB BB 
¢C 00 00 NNNN NN VV w LL BB BB 
CC 00 00 NN VV wW LL BB BB | 
CC 00 00 NN NN NN VV w LL BBBBBBBB | 
CC 00 00 NN NN NN VV w LL BBBBBBBB 
CC 00 00 NN NNNN VV wW LL BB BB 
CC 00 00 NN NNNN VV WwW BB BB 
Cc 00 00 NN NN WoW LL BB 8B eats 
CC 00 00 NN NN WoW LL BB BB ee 
CCCCCCCC }~=—000000—SsNN NN Ww CLLLLLLLLL BBBBBBBB toot 
CCCCCCCE 000000 ~=sNN NN W CLLLLLLLLL BBBBBBBB cs | 
LL 1IIIII SSSSSSSS 
tL III SSSSSSSS 
tL 1] Ss 
tL 1] $$ 
LL 1] SS | 
tL 11 3 
tL 1] SSSSSS 
tL 11 SSSSSS 
tL II SS | 
tL 1] S$ 
LL I] 5S | 
tL 1] §$ 
CLLLLLLLLL  IIIIII —SSSSSSSS 
LLLLLLLLLL © «dNTNI «= SSSSSSSS 
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; 1 p08) MODULE CONVLB ( 

; ¢ Oe IDENT = 'V04-000' 

: P 000 4BL1SS32C, 

: ¢ P Bebe ADDRESSING_ MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 

; 6 44 d= 

; 7 0007 1 BEGIN 

3 8 0008 1! 

s , i484 REE EERE REET RAE ERREREE EERE 
: 1 010 1 !* 

3 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
; \¢ Bog 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; ‘7 dF : te ALL RIGHTS RESERVED. * 
Py .* * 
; 15 0015 1 !* ag SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND Sgt ht * 
: 16 0016 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 17 0017 1 ‘« INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
: 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; $ itt : :* TRANSFERRED. ® 
3 '® 7 
: $§ b0S§ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 2 00253 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Se Bose } :* CORPORATION. * 
° Hil * 
: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
5 27 its 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
;: 0028 1 :* * 
: @& 0029 1 !« * 
3 30 QO350 1 Peete ee eee REAR ERRATA EEE 
: 31 9031 1! 

: 6032 1 i++ j 

3 ez ab | FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

3 35 0035 1 ! ABSTRACT: Convert a string of upper-case letters into an equivalent binary 
ae | 0036 1! number. 

‘Be 4 0037 1! 

; 3 0038 1! 

3 39 0039 1 ! ENVIRONMENT: Transportable 

: 40 0040 1! 

: «641 0041 1 ! AUTHOR: R.W.Friday CREATION DATE: April, 1979 

; 42 0042 1! 


: 
| 
| 


~*~ | 
6-Se 4 a 
4-Se 6 


16-Sep-1 711: AX-11 Bliss-32 V4.0-742 Page 

Revision History 14S 07198 99: )4:8 ERUNOFFeSRe CONVLB.BLI;1 » (28 
043 1 XSBITL ‘Revision History' 

044 1! 
Rhee } MODIFIED BY: 
0047 1: 002 KFA00CO2 Ken Alden 07-Mar-1983 

0048 1! Global edit of all modules. Updated module names, idents, 

sie ! copyright dates. Changed require files to BLISS library. 
0051 1 i-- 
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: 38 ZSBTTL "Module Level Declarations’ 
§ 4 
055 


SS 


H 1 
16-Sep-1 


4 00:11: AX-11 Bliss-32 V4.0-74 Pp 
Be~ 600 Module Level Declarations 1 ~368 138% 99:54:88 RUNOFF, ROICONVLB.BLI; ont a) 
Fes 8 § } GLOBAL ROUTINE CONVLB (STRING_PTR, STRING_LENGTH) = 
61 058 1 !++ 
° B28 ! FUNCTIONAL DESCRIPTION: 
ee $e 1 Converts a string of upper case letters into a binary number. 
66 O68 FORMAL PARAMETERS: | 
68 0065 1! STRING_PTR is a CHSPTR to the string to be converted. 
+4 0067 : STRING_LENGTH is the number of characters to be processed. 
4 008s i IMPLICIT INPUTS: None 
3 9070 { IMPLICIT OUTPUTS: None 
75 0078 1 | ROUTINE VALUE: 
76 0075 1 ! COMPLETION CODES: None 
77 0074 1! 
78 0075 1 ! SIDE EFFECTS: None 
79 0076 1! 
80 0077 1 !-- 
81 0078 1 
82 0079 $ BEGIN 
83 0080 
BS poas 8 TOTAL | 
P. 
Bie og os 
88 0085 2 ptr = .string_ptr; 
a Baas § result = 0; 
91 0088 INCR I FROM 1 TO ged Length DO 
4 i494 result = (26*.result) + (CHSRCHAR_A(ptr) = %C'a'); 
94 0091 RETURN .result; 
95 0092 1 END; ‘End of CONVLB 
-TITLE CONVLB 
-IDENT \V04-000\ 


~PSECT S$CODES,NOWRT,2 


001¢ 00000 .ENTRY CONVLB, Save R2,R3,R4 : 
54 04 ac DO 00002 MOVL § STRING.PTR, PTR : 
20 D4 00006 CLRL —— RESULT ; 
53 D4 00008 CLRL : 0088 
0C 11 OOOOA BRB $ ; 
51 50 1A C5 0000 1$ MULL3 #26, RESULT, R1 > 0089 
52 84 OA 0001 MOVZBL > ; 
50 CO A241 3 001 MOV -64(R25CR1], RESULT ; 
EF 53 08 AC F 9901 2$ AOBLEQ STRING_LENGTH, I, 1$ ; 
04 0001D RET : 0092 


Elapsed Time: 00:05.8 
Lines/CPU Min: 4253 
Lexemes/CPU-Min: 6179 
poner? Used: 17 pages 
Compila 


Se Se Se Se Se eee 


tion Complete 


| 1 
CONVLB ibese -1984 00:11:28 AX-11 Bliss-32 V4.0-74 Page i ( 
you~000 Module Level Declarations 1278 08- 1982 99:03:86 CRUNOFF SRE CONVLB.BLI; . (4) | vo! 
; Routine Size: 30 bytes, Routine Base: $CODE$ + 0000 | : 
: 9% 093 1 ; 
; 9 094 1 END ‘End of module : 
: 98 095 0 ELUDOM 5 
; PSECT SUMMARY ; 
: Name Bytes Attributes ; 
; SCODES 30 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
: COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CONVLB/OBJ=0BJ$:CONVLB MSRC$:CONVLB/UPDATE=(ENH$: CONVLB) : 
; Size: 30 code + 0 data bytes : 


Run Time: 00:01.3 
| 
| 
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